perm filename ESCI.1[AID,LSP] blob sn#370161 filedate 1978-07-17 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00003 ENDMK
CāŠ—;

(lap esci-enb subr)
(args esci-enb (nil . 0))
esci
(move t bits)
(calli t 400025)	;intenb
(movei t intwrd)
(movem t 71)
(movei a 't)
(popj p)
intwrd
(block 2)
(esci-hnd)
bits
(4ā†22)

esci-hnd 
(calli 0 400034)	;uwait
(calli 0 400035)	;debreak
(051ā†33 11 0)		;clrbfi
(push fxp t)
(move t (+ intwrd 1))
(movem t 73)
(movem t 130)
(move t bits)
(calli t 400025)	;intenb
(pop fxp t)
(jrst 0 @ 124)		;simulates REEnter
nil
(esci-enb)